home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 10 / AACD 10.iso / AACD / Information / WebSites / Wirenet / files / Dashboard2.lha / Dashboard2 / AmiTCP / bin / CheckOnline < prev    next >
Text File  |  1998-02-26  |  315b  |  22 lines
  1. /*
  2. $VER: CheckOnline 1.0 (13.4.97)
  3. by Neil Bothwick
  4.  
  5. Checks if AmiTCP or Miami is online
  6. */
  7.  
  8. options results
  9.  
  10. if show(ports,'AMITCP') > 0 then do
  11.     address command 'ifcheck ppp0 >NIL:'
  12.     exit RC
  13.     end
  14.  
  15. if show(ports,'MIAMI.1') > 0 then do
  16.     address 'MIAMI.1' 'ISONLINE'
  17.     exit (~RC * 5)
  18.     end
  19.  
  20. exit 10
  21.  
  22.